setwd("D:\\Statistik")
HW <- read.table("D:\\Statistik\\HeightWeightMBL.txt", h=T)
HW$H.cm <- HW$Height.inches.*(2.54)
HW$G.kg <- HW$Weight.pounds.*(0.4536)
hist(HW$H.cm)
hist(HW$G.kg)
#stichproben
s1Gr20 <- sample(HW$H.cm, 20)
hist(s1Gr20)